
;(setf *standard-output* (open "file.txt"))

(setf in (open "file.txt" :direction :output))

(format in "Hello World~%")